home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / turbotut.arc / PRINTOUT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-06-30  |  378 b   |  16 lines
  1. PROGRAM printout_example;
  2.  
  3. VAR index : BYTE;
  4.  
  5. BEGIN
  6. WRITELN(output,'Printer program example');
  7. WRITELN(output,'Turn on your printer and install paper in it.');
  8. WRITELN(lst,'This is to demonstrate printing in Pascal');
  9. WRITELN(lst);
  10. FOR index := 1 TO 15 DO
  11. BEGIN
  12.   WRITE(lst,'The index value is ');
  13.   WRITE(lst,index:3);
  14.   WRITELN(lst,' at this point');
  15. END;
  16. END.